home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wrl____4.p2s < prev    next >
Encoding:
Text File  |  1994-05-04  |  4.7 KB  |  171 lines
  1. #############################################################
  2. # OBJECTIVE: LINE IN RECORD
  3. #
  4. # Description:  Open the wave player,line in and monitor
  5. #              1)load NEW,record,seek,play.
  6. #              2)seek to start,record,seek,play.
  7. #              3)record,seek,play,save.
  8. #               Close
  9. #
  10. #  NOTE: Ensure an audio source is connected to the line in jack
  11. #        of the audio card, otherwise it will be a blank record.
  12. #############################################################
  13.  
  14. ############################################
  15. #
  16. #   OPEN THE DIGITAL AUDIO PLAYER
  17. #
  18. ############################################
  19.  
  20. open waveaudio00 alias wave1 notify
  21. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  22. @WAIT_NOTIFY 1 45000
  23. ###############################################
  24. #
  25. #  ENABLE TYPE LINE IN, SET MONITOR INPUT ON
  26. #
  27. ###############################################
  28.  
  29. CONNECTION wave1 QUERY TYPE WAVE STREAM ALIAS MPAmpMixer WAIT
  30. CONNECTOR WAVE1 ENABLE TYPE LINE IN NOTIFY
  31. SET MPAmpMixer MONITOR ON WAIT
  32.  
  33. ############################################
  34. #
  35. #   LOAD A NEW FILE TO BE RECORDED
  36. #
  37. ############################################
  38.  
  39. load wave1 new notify
  40. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  41. @WAIT_NOTIFY 2 30000
  42.  
  43. ############################################
  44. #
  45. #   SET THE DIGITAL AUDIO PLAYER
  46. #   TIME FORMAT - MILLISECONDS
  47. #   BITS PER SAMPLE - 8 BITS
  48. #   SAMPLES PER SEC - 22 KHz
  49. #   CHANNELS - STEREO
  50. #   FORMAT TAG - MULAW
  51. #
  52. ############################################
  53.  
  54. set wave1 time format milliseconds wait
  55. status wave1 time format wait
  56. =milliseconds
  57. set wave1 bitspersample 8 wait
  58. status wave1 bitspersample wait
  59. =8
  60. set wave1 samplespersec 22050 wait
  61. status wave1 samplespersec wait
  62. =22050
  63. set wave1 channels 2 wait
  64. status wave1 channels wait
  65. =2
  66. set wave1 format tag MULAW wait
  67. status wave1 format tag wait
  68. =MULAW
  69.  
  70. ############################################
  71. #
  72. #   RECORD THE NEW WAVE FILE
  73. #
  74. ############################################
  75. @REM ***************************************************************
  76. @REM Ensure an audio source is connected to the line in jack of the
  77. @REM audio card, otherwise it will be a blank record.
  78. @REM ***************************************************************
  79.  
  80. record wave1 from 0 to 10000 notify
  81. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  82. @WAIT_NOTIFY 3 20000
  83.  
  84. ##############################################
  85. #
  86. #   SEEK TO START, PLAY THE NEW RECORDED FILE
  87. #
  88. ##############################################
  89.  
  90. seek wave1 to 0 wait
  91. status wave1 position wait
  92. =0
  93. play wave1 notify
  94. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #4
  95. @WAIT_NOTIFY 4 45000
  96.  
  97. #############################################################
  98. #
  99. #   SEEK TO START
  100. #   RECORD THE NEW WAVE FILE AT SAME WAVE FILE FOR second TIME
  101. #
  102. #############################################################
  103.  
  104. @REM ***************************************************************
  105. @REM Ensure an audio source is connected to the line in jack of the
  106. @REM audio card, otherwise it will be a blank record.
  107. @REM ***************************************************************
  108.  
  109. seek wave1 to 0 wait
  110. status wave1 position wait
  111. =0
  112. record wave1 from 0 to 10000 notify
  113. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #6
  114. @WAIT_NOTIFY 6 20000
  115.  
  116. #############################################
  117. #
  118. #   SEEK TO START,PLAY THE NEW RECORDED FILE
  119. #
  120. #############################################
  121.  
  122. seek wave1 to 0 wait
  123. status wave1 position wait
  124. =0
  125. play wave1 notify
  126. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #7
  127. @WAIT_NOTIFY 7 45000
  128.  
  129. ##############################################
  130. #
  131. #   RECORD THE NEW WAVE FILE FOR THE third TIME
  132. #
  133. ##############################################
  134. @REM ***************************************************************
  135. @REM Ensure an audio source is connected to the line in jack of the
  136. @REM audio card, otherwise it will be a blank record.
  137. @REM ***************************************************************
  138.  
  139. record wave1 from 0 to 10000 notify
  140. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #8
  141. @WAIT_NOTIFY 8 20000
  142.  
  143. ############################################
  144. #
  145. #   SEEK TO 10 second
  146. #   PLAY THE NEW RECORDED FILE
  147. #   SAVE THE NEW RECORDED FILE
  148. #
  149. ############################################
  150.  
  151. seek wave1 to 10 wait
  152. status wave1 position wait
  153. =10
  154. play wave1 notify
  155. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #9
  156. @WAIT_NOTIFY 9 45000
  157. save wave1 delete.wav notify
  158. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #10
  159. @WAIT_NOTIFY 10 45000
  160.  
  161. ####################################
  162. #
  163. #   CLOSE THE DIGITAL AUDIO PLAYER 
  164. #
  165. ####################################
  166.  
  167. close wave1 notify
  168. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #11
  169. @WAIT_NOTIFY 11 40000
  170.  
  171.